home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
dspdep.arc
/
INT1731.CLP
< prev
next >
Wrap
Text File
|
1991-12-04
|
1KB
|
41 lines
INT1731: PGM (&OPTION &FILE &LIB &MBR &RCDFMT &SHARING)
/* Program - INT1731 */
/* Exit program for DSPDEP */
DCL &OPTION *CHAR 01 /* Option selected */
DCL &FILE *CHAR 10 /* File name */
DCL &LIB *CHAR 10 /* Library name */
DCL &MBR *CHAR 10 /* Member name */
DCL &RCDFMT *CHAR 10 /* Record format */
DCL &SHARING *CHAR 10 /* Type of Dependency */
MONMSG MSGID(CPF0000)
IF (&OPTION *EQ '1') DO
DSPRCDFMT FILE(&FILE.&LIB)
GOTO RETURN
ENDDO
IF (&OPTION *EQ '4') DO
DSPOBJAUT OBJ(&FILE.&LIB) OBJTYPE(*FILE)
GOTO RETURN
ENDDO
IF (&OPTION *EQ 'A') DO
DSPFD FILE(&FILE.&LIB) TYPE(*ACCPTH)
GOTO RETURN
ENDDO
IF (&OPTION *EQ 'K') DO
DSPFD FILE(&FILE.&LIB) TYPE(*ACCPTH *SELECT)
GOTO RETURN
ENDDO
IF (&OPTION *EQ 'S') DO
DSPFD FILE(&FILE.&LIB) TYPE(*SELECT)
GOTO RETURN
ENDDO
RETURN: RETURN
ENDPGM: ENDPGM